# load packages

pacman::p_load(tidyverse, tableone)

### figure A.28 (covariate balance) ----

# load data
urns <- read_rds("data/urns_covbal.rds")

# balance table
tab <- CreateTableOne(strata = "treated", data = urns, test = FALSE)

print(tab, smd = TRUE, contDigits = 3)

# clean
rm(list=ls())
